home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1093.ZIP / TPRAT.ARC / TPMONO.DEF < prev    next >
Text File  |  1988-01-13  |  6KB  |  248 lines
  1. ;TP Rat Monochromatic Definition File
  2. ;Copyright (c) 1988
  3. ;by J. A. Smart
  4.  
  5. ;Revised 1-11-88
  6.  
  7. ;Define mouse buttons, movement and sensitivity
  8. Begin lb,rb,bb,LEFT,RIGHT,UP,DOWN,35,55
  9.  
  10. ;Match screen outputs for context sensitivity
  11. lb:           MATCH 14,27,, "Borland",mAUTOEXEC,matlb2
  12. matlb2:       MATCH 2,5,, "┌",ENT,matlb3
  13. matlb3:       MATCH 2,31,, "┌",ENT,matlb4
  14. matlb4:       MATCH 2,43,, "┌",ENT,matlb5
  15. matlb5:       MATCH 1,6,NORMAL, "F",ENT,matlb6
  16. matlb6:       MATCH 1,15,NORMAL, "E",ENT,matlb7
  17. matlb7:       MATCH 1,24,NORMAL, "R",ENT,matlb8
  18. matlb8:       MATCH 1,32,NORMAL, "C",ENT,matlb9
  19. matlb9:       MATCH 1,44,NORMAL, "O",ENT,matlb10
  20. matlb10:      MATCH 2,1,, "Option",mOPTIONS,matlb11
  21. matlb11:      MATCH 2,1,, "Replace",mREPLACE,F10
  22.  
  23.  
  24. rb:           MATCH 2,5,, "┌",ENT,matrb2
  25. matrb2:       MATCH 2,31,, "┌",ENT,matrb3
  26. matrb3:       MATCH 2,43,, "┌",ENT,matrb4
  27. matrb4:       MATCH 1,6,NORMAL, "F",ENT,matrb5
  28. matrb5:       MATCH 1,15,NORMAL, "E",ENT,matrb6
  29. matrb6:       MATCH 1,24,NORMAL, "R",ENT,matrb7
  30. matrb7:       MATCH 1,32,NORMAL, "C",ENT,matrb8
  31. matrb8:       MATCH 1,44,NORMAL, "O",ENT,matrb9
  32. matrb9:       MATCH 2,1,, "Option",mOPTIONS,matrb10
  33. matrb10:      MATCH 2,1,, "Replace",mREPLACE,mEDITMENU
  34.  
  35. bb:           EXECUTE ESCAPE
  36.  
  37. ;Key defined
  38. ENT:        TYPE 013
  39. ESCAPE:     TYPE 027
  40. UP:         TYPE 0,72
  41. DOWN:       TYPE 0,80
  42. RIGHT:      TYPE 0,77
  43. LEFT:       TYPE 0,75
  44. CANCEL:     NOTHING
  45.  
  46. mAUTOEXEC:  EXECUTE ESCAPE,F5,F10,F,L,ENT
  47.  
  48. mEDITMENU:  POPUP,1,1,112,NORMAL
  49. TEXT "   Block   Search & Replace   Miscellaneous    ***  TURBO PASCAL 4.0 MOUSE  *** "
  50. SELECT   1,4,5,mBLOCK
  51. SELECT   1,12,16,mSEARCH
  52. SELECT   1,31,13,mMISC
  53. PEND
  54.  
  55. mBLOCK:     POPUP,2,1,007,NORMAL
  56. TEXT "╔═══════════════════╗"
  57. TEXT "║   Block Function  ║"
  58. TEXT "╚╤═════════════════╤╝"
  59. TEXT " │Begin Block      │ "
  60. TEXT " │End Block        │ "
  61. TEXT " │Mark Single Word │ "
  62. TEXT " │Print Block      │ "
  63. TEXT " │Copy Block       │ "
  64. TEXT " │Delete Block     │ "
  65. TEXT " │Hide/Display     │ "
  66. TEXT " │Move Block       │ "
  67. TEXT " │Read from Disk   │ "
  68. TEXT " │Write to Disk    │ "
  69. TEXT " │     Cancel      │ "
  70. TEXT " └─────────────────┘ "
  71. SELECT    4,3,17,mBegBlo
  72. SELECT    5,3,17,mEndBlo
  73. SELECT    6,3,17,mMarSin
  74. SELECT    7,3,17,mPriBlo
  75. SELECT    8,3,17,mCopBlo
  76. SELECT    9,3,17,mDelBlo
  77. SELECT    10,3,17,mHidDis
  78. SELECT    11,3,17,mMovBlo
  79. SELECT    12,3,17,mReaDis
  80. SELECT    13,3,17,mWriDis
  81. SELECT    14,3,17,Cancel
  82. PEND
  83.  
  84. ;Blocks & Markers executes defined
  85. mBegBlo:       EXECUTE CtrlK,CtrlB
  86. mEndBlo:       EXECUTE CtrlK,CtrlK
  87. mMarSin:       EXECUTE CtrlK,CtrlT
  88. mPriBlo:       EXECUTE CtrlK,CtrlP
  89. mCopBlo:       EXECUTE CtrlK,CtrlC
  90. mDelBlo:       EXECUTE CtrlK,CtrlY
  91. mHidDis:       EXECUTE CtrlK,CtrlH
  92. mMovBlo:       EXECUTE CtrlK,CtrlV
  93. mReaDis:       EXECUTE CtrlK,CtrlR
  94. mWriDis:       EXECUTE CtrlK,CtrlW
  95.  
  96. mSEARCH:    POPUP,2,12,007,NORMAL
  97. TEXT "╔═════════════════╗"
  98. TEXT "║  Find/Replace   ║"
  99. TEXT "╚╤═══════════════╤╝"
  100. TEXT " │Find Pattern   │ "
  101. TEXT " │Find & Replace │ "
  102. TEXT " │Repeat Find    │ "
  103. TEXT " │    Cancel     │ "
  104. TEXT " └───────────────┘ "
  105. SELECT    4,3,15,mFinPat
  106. SELECT    5,3,15,mFinRep
  107. SELECT    6,3,15,mRepFin
  108. SELECT    7,3,15,Cancel
  109. PEND
  110.  
  111. mOPTIONS:  POPUP,1,007,9,NORMAL
  112. Text "╒══════════════════╕"
  113. Text "│  Search Options  │"
  114. Text "╞══════════════════╡"
  115. Text "│ (U)ppercase      │"
  116. Text "│ (B)ackward       │"
  117. Text "│ (W)hole Words    │"
  118. Text "│ (G)lobal Search  │"
  119. Text "│ (L)ocal to Block │"
  120. Text "│ (N)o Prompting   │"
  121. Text "│ Enter <CR>       │"
  122. Text "│      CANCEL      │"
  123. Text "└──────────────────┘"
  124. Select  4,3,16,U
  125. Select  5,3,16,B
  126. Select  6,3,16,W
  127. Select  7,3,16,G
  128. Select  8,3,16,L
  129. Select  9,3,16,N
  130. Select  10,3,16,ENT
  131. Select  11,3,16,Cancel
  132. PEND
  133.  
  134. ;Execute Find choices
  135. mFinPat:       EXECUTE CtrlQ,CtrlF
  136. mFinRep:       EXECUTE CtrlQ,CtrlA
  137. mRepFin:       EXECUTE CtrlL
  138.  
  139. ;Replace prompting
  140. mREPLACE:  POPUP,2,17,007,normal
  141. TEXT " Yes  No "
  142. SELECT    1,2,3,Yes
  143. SELECT    1,7,2,No
  144. PEND
  145.  
  146. mMISC:     popup,2,33,007,normal
  147. TEXT "╔═══════════════════╗"
  148. TEXT "║   Miscellaneous   ║"
  149. TEXT "╚╤═════════════════╤╝"
  150. TEXT " │Abort Operation  │ "
  151. TEXT " │Autoindent       │ "
  152. TEXT " │Ctrl Char Prefix │ "
  153. TEXT " │Pair Braces Frwd │ "
  154. TEXT " │Pair Braces Bkwd │ "
  155. TEXT " │Load File        │ "
  156. TEXT " │Exit, No Save    │ "
  157. TEXT " │Restore Line     │ "
  158. TEXT " │Save and Edit    │ "
  159. TEXT " │Set Place Marker │ "
  160. TEXT " │Tab Mode         │ "
  161. TEXT " │     Cancel      │ "
  162. TEXT " └─────────────────┘ "
  163. SELECT    4,3,17,mAboOpe
  164. SELECT    5,3,17,mAutInd
  165. SELECT    6,3,17,mCtrCha
  166. SELECT    7,3,17,mPaiFrw
  167. SELECT    8,3,17,mPaiBkw
  168. SELECT    9,3,17,mLoaFil
  169. SELECT    10,3,17,mExiNoS
  170. SELECT    11,3,17,mResLin
  171. SELECT    12,3,17,mSavEdi
  172. SELECT    13,3,17,mSetPla
  173. SELECT    14,3,17,mTabMod
  174. SELECT    15,3,17,CANCEL
  175. PEND
  176.  
  177. mAboOpe:     EXECUTE CtrlU
  178. mAutInd:     EXECUTE CtrlO,CtrlI
  179. mCtrCha:     EXECUTE CtrlP
  180. mPaiFrw:     EXECUTE CtrlQ
  181. mPaiBkw:     EXECUTE CtrlQ
  182. mLoaFil:     EXECUTE F3
  183. mExiNoS:     EXECUTE CtrlK,CtrlD
  184. mResLin:     EXECUTE CtrlQ,CtrlL
  185. mSavEdi:     EXECUTE F2
  186. mSetPla:     EXECUTE CtrlK
  187. mTabMod:     EXECUTE CtrlO,CtrlT
  188.  
  189. ;Alternate (macro) keys defined
  190. Alt1:     TYPE 0,120
  191. Alt2:     TYPE 0,121
  192. Alt3:     TYPE 0,122
  193. Alt4:     TYPE 0,123
  194. Alt5:     TYPE 0,124
  195. Alt6:     TYPE 0,125
  196. Alt7:     TYPE 0,126
  197. Alt8:     TYPE 0,127
  198. Alt9:     TYPE 0,128
  199.  
  200. ;Control keys defined
  201. CtrlA:   TYPE 01
  202. CtrlB:   TYPE 02
  203. CtrlC:   TYPE 03
  204. CtrlD:   TYPE 04
  205. CtrlE:   TYPE 05
  206. CtrlF:   TYPE 06
  207. CtrlG:   TYPE 07
  208. CtrlH:   TYPE 08
  209. CtrlI:   TYPE 09
  210. CtrlJ:   TYPE 10
  211. CtrlK:   TYPE 11
  212. CtrlL:   TYPE 12
  213. CtrlM:   TYPE 13
  214. CtrlN:   TYPE 14
  215. CtrlO:   TYPE 15
  216. CtrlP:   TYPE 16
  217. CtrlQ:   TYPE 17
  218. CtrlR:   TYPE 18
  219. CtrlS:   TYPE 19
  220. CtrlT:   TYPE 20
  221. CtrlU:   TYPE 21
  222. CtrlV:   TYPE 22
  223. CtrlW:   TYPE 23
  224. CtrlX:   TYPE 24
  225. CtrlY:   TYPE 25
  226. CtrlZ:   TYPE 26
  227. CtrlDel: TYPE 0,157
  228.  
  229. F1:      TYPE 0,59
  230. F2:      TYPE 0,60
  231. F3:      TYPE 0,61
  232. F5:      TYPE 0,63
  233. F10:     TYPE 0,68
  234. Yes:     TYPE "Y"
  235. No:      TYPE "N"
  236. A:       TYPE "A"
  237. B:       TYPE "B"
  238. F:       TYPE "F"
  239. G:       TYPE "G"
  240. I:       TYPE "I"
  241. L:       TYPE "L"
  242. N:       TYPE "N"
  243. Q:       TYPE "Q"
  244. R:       TYPE "R"
  245. U:       TYPE "U"
  246. W:       TYPE "W"
  247. X:       TYPE "X"
  248.